home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / AppleScript.lisp next >
Encoding:
Text File  |  1994-09-13  |  5.6 KB  |  145 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; 
  3. ; ////////////////////////////////////////////////////////////////////////////////
  4. ; // OPEN SCRIPTING ARCHITECTURE: Client Interface
  5. ; ////////////////////////////////////////////////////////////////////////////////
  6. ; // Copyright © 1992 Apple Computer, Inc. All rights reserved.
  7. ; // Authors: Jens Alfke, William Cook, Donn Denman, and Warren Harris
  8. ; ////////////////////////////////////////////////////////////////////////////////
  9. ; // This interface defines what it means to be a "scripting component."
  10. ; // Scripting components allow "scripts" to be loaded and executed.  This
  11. ; // interface does not define the way in which a particular scripting
  12. ; // component's scripts are editing and debugged.
  13. ; ////////////////////////////////////////////////////////////////////////////////
  14. ; 
  15.  
  16. ; $IFC UNDEFINED UsingIncludes
  17. ; $SETC UsingIncludes := 0
  18. ; $ENDC
  19.  
  20. ; $IFC NOT UsingIncludes
  21.  
  22. ; $ENDC
  23.  
  24. ; $IFC UNDEFINED UsingAppleScript
  25. ; $SETC UsingAppleScript := 1
  26.  
  27. ; $I+
  28. ; $SETC AppleScriptIncludes := UsingIncludes
  29. ; $SETC UsingIncludes := 1
  30. ; $IFC UNDEFINED UsingAppleEvents
  31.  
  32. (require-interface 'APPLEEVENTS); $I $$Shell(PInterfaces)AppleEvents.p
  33. ; $ENDC
  34. ; $IFC UNDEFINED UsingComponents
  35.  
  36. (require-interface 'COMPONENTS) ; $I $$Shell(PInterfaces)Components.p
  37. ; $ENDC
  38. ; $IFC UNDEFINED UsingOSA
  39.  
  40. (require-interface 'OSA)        ; $I $$Shell(PInterfaces)OSA.p
  41. ; $ENDC
  42. ; $IFC UNDEFINED UsingTextEdit
  43.  
  44. (require-interface 'TEXTEDIT)   ; $I $$Shell(PInterfaces)TextEdit.p
  45. ; $ENDC
  46. ; $SETC UsingIncludes := AppleScriptIncludes
  47.  
  48. ;  Types and Constants 
  49.  
  50. (defconstant $typeAppleScript :|ascr|)
  51. (defconstant $kAppleScriptSubtype #$TYPEAPPLESCRIPT)
  52. (defconstant $typeASStorage #$TYPEAPPLESCRIPT)
  53.  
  54. ;  Error Codes 
  55.  
  56. ;  Runtime errors 
  57. (defconstant $errASCantConsiderAndIgnore -2720)
  58. (defconstant $errASCantCompareMoreThan32k -2721)
  59.  
  60. ;  Compiler errors 
  61. (defconstant $errASTerminologyNestingTooDeep -2760)
  62. (defconstant $errASIllegalFormalParameter -2761)
  63. (defconstant $errASParameterNotForEvent -2762)
  64. (defconstant $errASNoResultReturned -2763)
  65.  
  66. ;  Dialect specific errors 
  67. ;  The range -2780 thru -2799 is reserved for dialect specific error codes. 
  68. ;  (Error codes from different dialects may overlap.) 
  69.  
  70. ;  English errors 
  71. (defconstant $errASInconsistentNames -2780)
  72.  
  73. ;  Component Selectors 
  74. (defconstant $kASSelectInit #X1001)
  75. (defconstant $kASSelectSetSourceStyles #X1002)
  76. (defconstant $kASSelectGetSourceStyles #X1003)
  77. (defconstant $kASSelectGetSourceStyleNames #X1004)
  78.  
  79. ;  OSAGetScriptInfo Selectors 
  80. (defconstant $kASHasOpenHandler :|hsod|)
  81.  
  82. ;  Initialization 
  83.  
  84.  
  85. (deftrap _asinit ((scriptingcomponent (:pointer :componentinstancerecord)) (modeflags :signed-long) (minstacksize :signed-long) (preferredstacksize :signed-long) (maxstacksize :signed-long) (minheapsize :signed-long) (preferredheapsize :signed-long) (maxheapsize :signed-long))
  86.    (:stack :signed-long)
  87.    (:stack-trap #xA82A :d0 0 scriptingcomponent modeflags minstacksize preferredstacksize maxstacksize minheapsize preferredheapsize maxheapsize ((+ (ash 28 16) 4097) :signed-longint)))
  88.  
  89. ;  Default Initialization Parameters 
  90.  
  91. (defconstant $kASDefaultMinStackSize 4096)
  92. (defconstant $kASDefaultPreferredStackSize 16384)
  93. (defconstant $kASDefaultMaxStackSize 16384)
  94. (defconstant $kASDefaultMinHeapSize 4096)
  95. (defconstant $kASDefaultPreferredHeapSize 16384)
  96. (defconstant $kASDefaultMaxHeapSize 33554432)
  97.  
  98. ;  Source Styles 
  99.  
  100.  
  101. (deftrap _assetsourcestyles ((scriptingcomponent (:pointer :componentinstancerecord)) (sourcestyles (:handle :testyletable)))
  102.    (:stack :signed-long)
  103.    (:stack-trap #xA82A :d0 0 scriptingcomponent sourcestyles ((+ (ash 4 16) 4098) :signed-longint)))
  104.  
  105.  
  106. (deftrap _asgetsourcestyles ((scriptingcomponent (:pointer :componentinstancerecord)) (resultingsourcestyles (:pointer (:handle :testyletable))))
  107.    (:stack :signed-long)
  108.    (:stack-trap #xA82A :d0 0 scriptingcomponent resultingsourcestyles ((+ (ash 4 16) 4099) :signed-longint)))
  109.  
  110.  
  111. (deftrap _asgetsourcestylenames ((scriptingcomponent (:pointer :componentinstancerecord)) (modeflags :signed-long) (resultingsourcestylenameslist (:pointer :aedesc)))
  112.    (:stack :signed-long)
  113.    (:stack-trap #xA82A :d0 0 scriptingcomponent modeflags resultingsourcestylenameslist ((+ (ash 8 16) 4100) :signed-longint)))
  114.  
  115. (defconstant $kASSourceStyleUncompiledText 0)
  116. (defconstant $kASSourceStyleNormalText 1)
  117. (defconstant $kASSourceStyleLanguageKeyword 2)
  118. (defconstant $kASSourceStyleApplicationKeyword 3)
  119. (defconstant $kASSourceStyleComment 4)
  120. (defconstant $kASSourceStyleLiteral 5)
  121. (defconstant $kASSourceStyleUserSymbol 6)
  122. (defconstant $kASSourceStyleObjectSpecifier 7)
  123. (defconstant $kASNumberOfSourceStyles 8)
  124.  
  125. ; $ENDC                         ;  UsingAppleScript 
  126.  
  127. ; $IFC NOT UsingIncludes
  128.  
  129. ; $ENDC
  130.  
  131. (export '($KASNUMBEROFSOURCESTYLES $KASSOURCESTYLEOBJECTSPECIFIER
  132.           $KASSOURCESTYLEUSERSYMBOL $KASSOURCESTYLELITERAL
  133.           $KASSOURCESTYLECOMMENT $KASSOURCESTYLEAPPLICATIONKEYWORD
  134.           $KASSOURCESTYLELANGUAGEKEYWORD $KASSOURCESTYLENORMALTEXT
  135.           $KASSOURCESTYLEUNCOMPILEDTEXT $KASDEFAULTMAXHEAPSIZE
  136.           $KASDEFAULTPREFERREDHEAPSIZE $KASDEFAULTMINHEAPSIZE
  137.           $KASDEFAULTMAXSTACKSIZE $KASDEFAULTPREFERREDSTACKSIZE
  138.           $KASDEFAULTMINSTACKSIZE $KASHASOPENHANDLER
  139.           $KASSELECTGETSOURCESTYLENAMES $KASSELECTGETSOURCESTYLES
  140.           $KASSELECTSETSOURCESTYLES $KASSELECTINIT $ERRASINCONSISTENTNAMES
  141.           $ERRASNORESULTRETURNED $ERRASPARAMETERNOTFOREVENT
  142.           $ERRASILLEGALFORMALPARAMETER $ERRASTERMINOLOGYNESTINGTOODEEP
  143.           $ERRASCANTCOMPAREMORETHAN32K $ERRASCANTCONSIDERANDIGNORE
  144.           $TYPEASSTORAGE $KAPPLESCRIPTSUBTYPE $TYPEAPPLESCRIPT))
  145. (provide-interface 'AppleScript)